1 D=53280:POKED,.:POKED+1,.
2 PRINT"[147][155]        ALPHABETISCHES SORTIEREN        ":DIMA$(1000)
3 PRINT"DIE BEGRIFFE BITTE !"
4 PRINT"(ENDE MIT '^'!)"
5 Z=1
6 PRINTZ;": ";:POKE19,64:INPUTA$(Z):PRINT
7 IFA$(Z)="^"THENA$(Z)="":Z=Z-1:GOTO10
8 IFZ>999THEN10
9 Z=Z+1:GOTO6
10 POKE19,0:PRINT"[147]":PRINT
11 FORI=1TOZ-1
12 J=I+1
13 FORK=ITOZ
14 IFA$(K)>A$(J)THEN16
15 J=K
16 NEXTK
17 W$=A$(J)
18 A$(J)=A$(I)
19 A$(I)=W$
20 PRINTA$(I):X=X+1:IFX/23=INT(X/23)THENPOKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
21 NEXTI:PRINTA$(Z)
22 POKE198,0:WAIT198,1:POKE198,0:PRINT"                DRUCKEN ?        "
23 GETA$:IFA$<>"J"ANDA$<>"N"THEN23
24 IFA$="J"THENOPEN4,4:CMD4:FORI=1TOZ:PRINTA$(I):NEXT:PRINT#4:CLOSE4